home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / ICON Buttons.cpt / ICON Buttons / background_5475.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  81 lines
  1. -- background: 5475 from stack: in
  2. -- bmap block id: 3625
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: b
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on checkGarbage
  12.   if the freesize of this stack >0 then
  13.     set visible of field "trashBytes" to true
  14.     --This shows you the amount of Free Space in the stack
  15.     --I don't know why, but the freeSize property is always off by 1.
  16.     --Therefore, the following script has a +1 so it matches with the
  17.     --Stack Info dialog box.
  18.     put the freesize of this stack div 1024 +1 &&"K" into line 4 of field "trashBytes"
  19.     --This shows the amount of free Memory available in the application
  20.     --heap.
  21.     put the heapSpace div 1024 &&"K" into line 6 of field "trashBytes"
  22.   else
  23.     set visible of field "trashbytes" to false
  24.   end if
  25. end checkGarbage
  26.  
  27.  
  28.  
  29. -- part 8 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=36 top=283 right=308 bottom=65
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 21700 / 21700
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Home
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   visual effect iris open
  44.   go Home
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 9 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=436 top=280 right=308 bottom=473
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 6720 / 6720
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Return
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   visual effect iris close
  64.   pop card
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 10 (field)
  70. -- low flags: 80
  71. -- high flags: 2004
  72. -- rect: left=336 top=179 right=260 bottom=449
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: trashbytes
  81.